<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage="65001"%>
<%Response.Charset="UTF-8"%>
<%
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"

'版权：54IT.com
'类型：开源免费版本
'作者：mocomor@QQ.com
'Verison
Ver="AnyPIM_Free.6.2_UTF8"
URL="/AnyPIM_Free/"

'数据库链接信息
Set Conn = Server.CreateObject("ADODB.Connection")
'-本地
Sql_Server = "(local)"        '数据库服务器地址
Sql_User = "sa"				 '数据库登录名
Sql_Pass = "sa#2011"			 '数据库密码
Sql_Data = "AnyPIMFreeV6.2"				 '数据库名
strConn = "Driver={SQL Server};Description=AnyPIM_DB;SERVER="&Sql_Server&";UID="&Sql_User&";PWD="&Sql_Pass&";DATABASE="&Sql_Data&";"
Conn.Open(strConn)
If err Then
err.clear
Set Conn = nothing
response.write "数据库连接出错，请检查连接字串。"
response.end
end If

set RS=server.createobject("adodb.recordset")
set RSs=server.createobject("adodb.recordset")

'设定工作时间WorkTime,从开始时间到结束时间，如从5点到24点，
'注意身体健康，金钱倒是其次的！
'开始
WT_begin=8
'结束
WT_End=23
'Money模块分页记录数
Pagez=10
'MoneyForm检查函数
function checkform(str)
if not isnull(str) and str<>"" then
str = Replace(str,"&","&amp;")
str = replace(str,">","&gt;")
str = replace(str,"<","&lt;")
checkform=str
end if
end Function

%>
<%'农历类%>
<!--#include file="_Inc/_FunLib_CalendrierChinois.asp" -->
<%'公共类%>
<!--#include file="_Inc/_Fun_Pub.asp" -->
<%'防SQL注入类%>
<!--#include file="_Inc/_SqlIN.asp" -->


